home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / FORTH / H166B.ZIP / L4.ZIP / P4-14BS.SEQ < prev    next >
Encoding:
Text File  |  1990-04-15  |  267 b   |  14 lines
  1. \ Balraj Sidhu   Set: 14D4
  2. \ Comp 462 - Forth
  3. \ Date: April 12, 1990
  4. \ Problem 4.14
  5.  
  6. create data 20 allot   \ create an array of 10 16-bit numbers
  7.  
  8. : data@ ( i -- n )
  9.         abs 10 mod 2* data + @ ;
  10.  
  11. : data! ( n i -- )
  12.         abs 10 mod 2* data + ! ;
  13.  
  14.